
 
 N u m e r i c   C o m P o r t       =   1 5 
 
 N u m e r i c   B a u d s           =   1 0 0 0 0 0 0 
 
 
 
 N u m e r i c   F i r s t S l o t   =   1 0 0 
 
 N u m e r i c   N u m B a n d s     =   8 
 
 
 
 N u m e r i c   S w e e p M i n     =   4 0 0 0   '   2 0 0 0   '   4 0 0 0 
 
 N u m e r i c   S w e e p M a x     =   6 0 0 0   '   3 0 0 0   '   6 0 0 0 
 
 N u m e r i c   S w e e p S t e p   =   3 0 
 
 N u m e r i c   D u t y C y c l e   =   1 2 
 
 
 
 N u m e r i c   B e e p F r e q u e n c y   =   8 0 0 
 
 N u m e r i c   B e e p M i l l i s e c     =   1 0 
 
 
 
 N u m e r i c   T r i g g e r V a l u e   =   5 0 0 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 '   R e s o n a n c e   f r e q u e n c y 
 
 '   B o t t l e   N O   - - -   4 7 8 0 
 
 '   B o t t l e   N O   - - -   5 8 6 0 
 
 '   B o t t l e   O K   - - -   7 3 2 0   8 1 7 0 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   B u t t o n s 
 
 B u t t o n   1   L a b e l   S t e p + 
 
 B u t t o n   2   L a b e l   S t e p - 
 
 B u t t o n   4   L a b e l   D u t y + 
 
 B u t t o n   5   L a b e l   D u t y - 
 
 B u t t o n   7   L a b e l   A d c V a l u e 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   L o a d   A p p s 
 
 ' L o a d   T h e r e m i n o _ A u d i o I n p u t . e x e 
 
 L o a d   T h e r e m i n o _ A u d i o I n O u t . e x e 
 
 L o a d   T h e r e m i n o _ D A A . e x e 
 
 L o a d   T h e r e m i n o _ S l o t V i e w e r . e x e 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   S t a r t 
 
 S e n d O p t i o n s 
 
 G o t o   L o o p 
 
 S t o p 
 
 
 
 L a b e l   E v e n t S t o p 
 
 	 D u t y C y c l e   =   0 
 
 	 S e n d O p t i o n s 
 
 	 B u t t o n   A d c V a l u e   T e x t   " " 
 
 E n d 
 
 
 
 L a b e l   L o o p 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   R e a d   S l o t s 
 
 	 N u m e r i c   I n d e x 
 
 	 N u m e r i c   V a l u e   =   0 
 
 	 F o r   I n d e x   =   F i r s t S l o t   T o   F i r s t S l o t   +   N u m B a n d s   -   1 
 
 	 	 V a l u e   =   M a x ( V a l u e ,   I n t ( S l o t ( I n d e x ) ) ) 
 
 	 N e x t 
 
 	 B u t t o n   A d c V a l u e   T e x t   V a l u e 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   T e s t   v a l u e 
 
 	 I f   V a l u e   >   T r i g g e r V a l u e 
 
 	 	 S e t A l a r m 
 
 	 E l s e 
 
 	 	 R e s e t A l a r m 
 
 	 E n d I f 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 	 W a i t   S e c o n d s   0 . 0 0 1 
 
 G o t o   L o o p 
 
 
 
 L a b e l   S e t A l a r m 
 
 	 N u m e r i c   T r i g g e r C o m m a n d   =   0 
 
 	 I f   T r i g g e r C o m m a n d   < >   1 
 
 	 	 T r i g g e r C o m m a n d   =   1 
 
 	 	 A l a r m O N 
 
 	 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 	 	 B e e p   B e e p F r e q u e n c y   B e e p M i l l i s e c   
 
 	 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 	 	 B u t t o n   A d c V a l u e   T e x t   "   A L A R M   " 
 
 	 	 B u t t o n   A d c V a l u e   C o l o r   F l a s h i n g 8   O r a n g e R e d   G r e e n 3 
 
 	 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 	 	 W a i t   S e c o n d s   0 . 3 
 
 	 	 A l a r m O F F 
 
 	 E n d I f 
 
 R e t u r n 
 
 
 
 L a b e l   R e s e t A l a r m 
 
 	 T r i g g e r C o m m a n d   =   0 
 
 	 B u t t o n   A d c V a l u e   C o l o r   C o r n s i l k 
 
 R e t u r n 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   B u t t o n   e x e c u t i o n 
 
 L a b e l   S t e p + 
 
 	 S w e e p S t e p   =   M i n ( S w e e p S t e p   +   5 ,   1 5 0 ) 
 
 	 S e n d O p t i o n s 
 
 R e t u r n 
 
 L a b e l   S t e p - 
 
 	 S w e e p S t e p   =   M a x ( S w e e p S t e p   -   5 ,   5 ) 
 
 	 S e n d O p t i o n s 
 
 R e t u r n 
 
 
 
 L a b e l   D u t y + 
 
 	 D u t y C y c l e   =   M i n ( D u t y C y c l e   +   1 ,   3 0 ) 
 
 	 S e n d O p t i o n s 
 
 R e t u r n 
 
 L a b e l   D u t y - 
 
 	 D u t y C y c l e   =   M a x ( D u t y C y c l e   -   1 ,   0 ) 
 
 	 S e n d O p t i o n s 
 
 R e t u r n 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   S e n d   O p t i o n s 
 
 L a b e l   S e n d O p t i o n s 
 
 	 C O M   O p e n   C o m P o r t   B a u d s 
 
 	 S t r i n g   C m d   =   S w e e p M i n   +   "   "   +   S w e e p M a x   +   "   " 
 
 	 C m d   =   C m d   +   S w e e p S t e p   +   "   "   +   D u t y C y c l e   +   "   " 
 
 	 C O M   W r i t e S t r i n g   " O P T I O N S   "   +   C m d     +   C R L F 
 
 	 P r i n t   C m d 
 
 	 C O M   C l o s e 
 
 R e t u r n 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   S e n d   C o m m a n d s 
 
 L a b e l   A l a r m O N 
 
 	 C O M   O p e n   C o m P o r t   B a u d s 
 
 	 C O M   W r i t e S t r i n g   " A L A R M _ O N   "     +   C R L F 
 
 	 C O M   C l o s e 
 
 R e t u r n 
 
 
 
 L a b e l   A l a r m O F F 
 
 	 C O M   O p e n   C o m P o r t   B a u d s 
 
 	 C O M   W r i t e S t r i n g   " A L A R M _ O F F   "     +   C R L F 
 
 	 C O M   C l o s e 
 
 R e t u r n 
 
 
 
 
 
 ' B O O K M A R K S   
 
 
 
 ' E D I T E D L I N E S   1 1 2   2   1 1 8   2   7 1   1   1 0 4   2   6 5   3   7 0   4   1 0   5   1 1   6   1 2   1 0   1 3   1 0   6 8   1 0   6 7   1 0   
 
 
 
 ' W A T C H   v 1 
 
 ' E X E C   D e s t X   =   1 2 
 
 